Declare Sub Initialization()

Sub Initialization()
   Dim B As Byte

   Print "Type a char " ;
   Do
      B = Inkey()                                           'store in byte
      If B > 0 Then                                         'when the value > 0 we got something
         Print Chr(b)                                       'print the character
      End If
   Loop Until B = 27

   Print "Bye bye "
End Sub